Private Sub LockCheat(Idx As Integer)
    
    Dim Flag As Boolean
    Dim i As Object
    Dim f2 As Boolean
    Flag = Not (Files(CurrFile).Cheats(Idx + 1).ACRunning Or Files(CurrFile).Cheats(Idx + 1).Running)

    txtCaption(Idx).Enabled = Flag
    txtCheatText(Idx).Enabled = Flag
    txtCheatCall(Idx).Enabled = Flag
    txtRepeatInt(Idx).Enabled = Flag
    txtComment(Idx).Enabled = Flag
End Sub

Public Function ReplaceBS(Txt As String) As String
    Dim i As Integer, a0 As String * 1
    
    Const UnavSimbols As String = "\/|:*?""<>"
    
    For i = 1 To Len(Txt)
        a0 = mID(Txt, i, 1)
        If InStr(1, UnavSimbols, a0) <> 0 Then
            ReplaceBS = ReplaceBS & "_"
        Else
            ReplaceBS = ReplaceBS & a0
        End If
    Next
    If Txt <> ReplaceBS Then
        
    End If
End Function